home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 2
/
Merciful - Disc 2.iso
/
software
/
i
/
imagefxv2.1a.lha
/
ImageFX
/
Rexx
/
AutoFX
/
SaveRenderedAs_ILBM.ifx.pre
< prev
next >
Wrap
Text File
|
1996-03-02
|
1KB
|
44 lines
/*
* SaveRenderedAs_ILBM.ifx.pre
* Written by Thomas Krehbiel
*
* Save rendered image.
*
* Inputs:
* Word(Arg(1),1) = Sequence number (?)
* Word(Arg(1),2) = Total number of frames (N)
*
* Returns:
* 0 if successful, non-zero on failure
*
*/
OPTIONS RESULTS
lastpath = GETCLIP('Autofx_SaveRenderAsILBM_Path')
lastext = GETCLIP('Autofx_SaveRenderAsILBM_Ext')
IF lastpath = "" THEN DO
GetPrefs RendPath
lastpath = result
END
IF lastext = "" THEN lastext = ".iff"
Gadget.1 = 'STRING 120 5 200 14 "Output Path:" "'lastpath'"'
Gadget.2 = 'FILEREQ 321 5 20 14 "Output Path:" "'lastpath'" AT=1 DIRONLY'
Gadget.3 = 'STRING 120 20 200 14 "New Extension:" "'lastext'"'
Gadget.4 = 'TEXT 120 36 1 1 "(** = current frame number)" 1'
Gadget.5 = 'END'
NewComplexRequest '"Save Rendered Image As ILBM"' Gadget 360 53
IF rc ~= 0 THEN EXIT rc
lastpath = result.1
lastext = result.3
CALL SETCLIP('Autofx_SaveRenderAsILBM_Path', lastpath)
CALL SETCLIP('Autofx_SaveRenderAsILBM_Ext', lastext)
EXIT